80 POKE51,84:POKE52,9
90 INPUT"FILE TYPE  S[157][157][157]";T$:INPUT"FILE";X$
100 OPEN1,8,2,X$:SYS2223
105 IFST<>64THENPRINT"NO GO":STOP
120 CLOSE1:INPUT"OTHER DISK READY";A$
130 IFLEN(A$)THENOPEN 1,8,2,X$+","+T$+",W":SYS2267:CLOSE1